Módulo 2: Trabalhando com dados
Carolina Musso
PROFESP, DEMSP, MS
Funções join()
O pacote stringR e RegEx
Mais sobre o pacote flextable: título e fontes
letalidade_Brasil_Italia <- dados_covid %>%
filter(Country=="Brazil"|Country=="Italy",
New_cases>0) %>%
separate(Date_reported, c("Ano", "Mês", "Dia")) %>%
mutate(Country=str_replace(Country, "Brazil", "Brasil"),
Country=str_replace(Country, "Italy", "Itália")) %>%
mutate(letalidade_diaria = New_deaths/New_cases*100)%>%
group_by(Ano, Country) %>%
summarise(letalidade_media = mean(letalidade_diaria),
desvio_padrao = sd(letalidade_diaria ),
Casos_maximo = max(New_cases),
Obitos_maximo = max(New_deaths)) %>%
ungroup() %>%
mutate_if(is.numeric, ~format(., big.mark=".", decimal.mark=",", digits=2))
letalidade_Brasil_Italia# A tibble: 8 × 6
Ano Country letalidade_media desvio_padrao Casos_maximo Obitos_maximo
<chr> <chr> <chr> <chr> <chr> <chr>
1 2020 Brasil 3,17 2,06 " 70.574" "1.595"
2 2020 Itália 7,81 8,48 " 40.902" " 993"
3 2021 Brasil 2,85 0,89 "150.106" "4.249"
4 2021 Itália 1,91 1,44 "127.000" " 718"
5 2022 Brasil 0,70 0,53 "298.408" "1.523"
6 2022 Itália 0,31 0,19 "228.123" " 469"
7 2023 Brasil 0,78 0,90 " 59.994" " 472"
8 2023 Itália 0,97 0,51 " 27.102" " 150"